home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Dogs / Multimedia Dogs v2.0.iso / mac / Multimedia Dogs 2.0 / MIAW.DXR / 00004_Selection List handlers.ls next >
Encoding:
Text File  |  1995-10-09  |  683 b   |  33 lines
  1. global gpCursorState, gpSelectionCallback
  2.  
  3. on doSelection theList, theTitle, theCallback
  4.   set the text of cast "SelectionList" to theList
  5.   set the text of cast "SelectionTitle" to theTitle
  6.   set gpSelectionCallback to theCallback
  7.   go("list")
  8. end
  9.  
  10. on handleSelectionCancel
  11.   set gpCursorState to #waitAuto
  12.   cursor(4)
  13.   tell the stage
  14.     closeSelectionMIAW()
  15.   end tell
  16.   updateStage()
  17. end
  18.  
  19. on handleSelectionList
  20.   set theIndex to the mouseLine
  21.   if theIndex = -1 then
  22.     exit
  23.   end if
  24.   hilite line theIndex of field "SelectionList"
  25.   set gpCursorState to #waitAuto
  26.   cursor(4)
  27.   tell the stage
  28.     closeSelectionMIAW()
  29.   end tell
  30.   updateStage()
  31.   do(gpSelectionCallback)
  32. end
  33.